home *** CD-ROM | disk | FTP | other *** search
/ Aminet 41 / Aminet 41 (2001)(Schatztruhe)[!][Feb 2001].iso / Aminet / gfx / edit / AmiCAD_2.06.lha / AmiCAD / ARexx / NewScript.AmiCAD < prev    next >
Text File  |  1999-04-13  |  2KB  |  55 lines
  1. /* NewScript.AmiCAD, 3 Mars 1998 © R.Florac, version 1.00 */
  2. /* $VER: 1.1 (© R.Florac, 13 avril 1999) */
  3. /* Version 1.1: correction bug saisie nom du script */
  4. /* Chargement automatique d'un nouveau script dans Amitex depuis AmiCAD
  5.    Le script lance Amitex s'il ne tourne pas et demande le
  6.    chargement du fichier squelette.AmiCAD dans une fenêtre.
  7.    Le curseur est directement placé sur la ligne où doit
  8.    débuter la partie particulière au script, après les
  9.    déclarations usuelles.
  10.    L'utilisateur est invité à donner le nom du nouveau script
  11.    afin de donner le titre adéquat au script.
  12.    Ce script peut être appelé depuis l'un des menus Macros/ARexx.
  13.    Il peut être adapté à n'importe quel éditeur de texte
  14.    possédant une interface ARexx. */
  15.  
  16. signal on error             /* pour l'interception des erreurs */
  17. signal on syntax
  18.  
  19. options results
  20. cr='0a'x
  21.  
  22. port = ADDRESS()                    /* lecture du nom du port EdiCalc */
  23.  
  24. address command
  25. if ~show(p, "AMITEX") then do
  26.     f=0                 /* il n'y avait pas de fenêtre ouverte */
  27.     'run > nil:' "SYS:Tools/Amitex/AmiTex"  /* chargement de l'éditeur */
  28.     waitforport "AMITEX"
  29. end
  30. else f=1                /* il y a déjà une fenêtre active */
  31.  
  32. ADDRESS(AMITEX)
  33.  
  34. if f=1 then 'NEW("Nouveau.AmiCAD")'             /* demande l'ouverture d'une autre fenêtre */
  35. 'LOAD("Travail:AmiCAD/ARexx/squelette.AmiCAD")' /* demande le chargement du script "squelette" */
  36.  
  37. 'ASKTEXT("Quel est le nom'cr'de ce nouveau script ?", ".AmiCAD")'   /* demande du titre */
  38. titre = result
  39. if titre ~= "" then 'FILENAME("Travail:AmiCAD/ARexx/'titre'")'      /* renomme la fenêtre */
  40. 'GOTO(1,10)'
  41.  
  42. exit
  43.  
  44. /* Traitement des erreurs, interruption du programme */
  45. syntax:
  46. address (port)
  47. erreur=RC
  48. 'MESSAGE("Script NewScript.amiCAD :"+CHR(10)+"Erreur de syntaxe"+CHR(10)+"en ligne 'SIGL'"+CHR(10)+"'errortext(erreur)'")'
  49. exit
  50.  
  51. error:
  52. address (port)
  53. 'MESSAGE("Script NewScript.amiCAD :"+CHR(10)+"Erreur en ligne 'SIGL'")'
  54. exit
  55.